home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / SXP683.ARC / XFER940904 (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  21.5 KB  |  635 lines

  1. 0 POKE53280,.:POKE53281,.:PRINT"[147][151]    ";:SYS49230:GOTO100
  2. 1 GOSUB2:GOTO4
  3. 2 GOTO1610
  4. 3 GOTO1000
  5. 4 GOTO1740
  6. 5 GOSUB2:GOTO3
  7. 6 I$=" "+I$:SYS49182,I$:I$=MID$(I$,2):RETURN
  8. 7 A$=A$+" > ":GOTO1
  9. 8 A$="":GOTO2
  10. 9 A$=R$+A$:GOTO2
  11. 10 GOTO420
  12. 11 IF(PEEK(MP)AND16)<>CPANDPEEK(706)=.THENZ=1
  13. 12 RETURN
  14. 13 CLOSE3:CLOSE2:CLOSE1:RETURN
  15. 14 SYS49179,A$:RETURN
  16. 15 GOTO1650
  17. 16 GOSUB13:GOTO3
  18. 17 CLOSE1:GOTO2
  19. 18 F1=1:GOTO2160
  20. 19 CLOSE2:OPEN2,8,2,"0:USER LOG,S,A":RETURN
  21. 20 A$=R$+A$:GOTO5
  22. 21 A$=MID$("[208][210][199][211][197][209][208][210][199]",(PEEK(PP)-1)*3+1,3):RETURN
  23. 22 M3=VAL(DR$(4,L))+1:RETURN
  24. 23 POKE54296,15:S=54272:POKES+4,Y:POKES+3,9:POKES+1,8:POKES+5,12:POKES+6,15:POKES+4,65:RETURN
  25. 25 GOSUB56:I$=" "+"":POKE703,.:SYS49221,I$:IFPEEK(703)>.THENI$="":Z=1:RETURN
  26. 26 GOSUB6:IFFC=FWANDFWTHENRETURN
  27. 27 IFVK$<>"[217][206]"THEN46
  28. 28 IFI$=R$ORI$="[217]"THENA$="[217]ES":D=1:GOTO2
  29. 29 IFI$="[206]"THENA$="[206]O":D=.:GOTO2
  30. 30 GOTO25
  31. 34 A$="[211]TAND BY":GOTO9
  32. 36 GOSUB1:GOTO6
  33. 37 PRINT#1,M$CHR$(G)CHR$(H)Y$:INPUT#1,C1,C1$,C1,C1:RETURN
  34. 42 A$="[215]AITING [198]OR [211]TART [211]IGNAL":IFXPTHENA$=A$+"[195][212][210][204]-[216] TO [193]BORT":RETURN
  35. 43 A$=A$+"[193]=[193]BORT":RETURN
  36. 44 A$="[198]ILENAME":O=14:GOTO7
  37. 45 A$="[208]ROTOCOL: ":GOSUB9:I$=MID$(STR$(XP),2):VK$="012"
  38. 46 IFVK$<>"012"THEN60
  39. 47 XP=VAL(I$):IFI$="0"THENA$="[208]UNTER [195]1":XP$="[195]1:":GOTO2
  40. 48 IFI$="1"THENA$="[216]MODEM [195][210][195]":XP$="[195][210][195]:":GOTO2
  41. 49 IFI$="2"THENA$="[216]MODEM [195]HECKSUM":XP$="[195][200][203]:":GOTO2
  42. 50 IFI$="3"THENA$="[216]MODEM 1K":XP$="[216]1K:":GOTO2
  43. 51 IFI$="4"THENA$="[217]MODEM":XP$="[217]MB:":GOTO2
  44. 52 IFI$=R$THEN8
  45. 53 GOTO25
  46. 54 CLOSE1:OPEN1,8,15:RETURN
  47. 55 CLOSE1:OPEN1,U,15:RETURN
  48. 56 T2=TI+WT:IFT2>T-1THENT2=T2-T
  49. 57 T2=T2-INT(T2/60^3)*60^3:M5=INT(T2/60^2):M5$=MID$(STR$(M5),2)
  50. 58 M5=.:IFLEN(M5$)>1THENM5=16*VAL(LEFT$(M5$,1))
  51. 59 MM=VAL(RIGHT$(M5$,1)):M5=M5+MM:POKE702,M5:RETURN
  52. 60 IFVK$<>"[208][211]"THENVK$="[217][206]":GOTO25
  53. 61 IFI$="[208]"THENA$="[208]RG":O$=",P,W":GOTO2
  54. 62 IFI$="[211]"THENA$="[211]EQ":O$=SW$:GOTO2
  55. 63 GOTO25
  56. 70 FC=FC+(-1*(FW>.)):IFFC<FWORFW=.THENRETURN
  57. 71 FC=FW:AS$=A$:A$="<[205]ORE?>":GOSUB2:GOSUB25:A$="":FORX=1TO7:A$=A$+CHR$(20):NEXT
  58. 72 A$=A$+"":FC=.:GOSUB2:A$=AS$:RETURN
  59. 74 GOSUB13:OPEN1,8,15,"I0":OPEN3,8,3,"0:[211]YSTEM [213]SERS":RETURN
  60. 78 A$=MID$(STR$(A),2):IFLEN(A$)=1THENA$="0"+A$
  61. 79 RETURN
  62. 80 SYS49224:B$="":FORX=1094TO1101:B$=B$+CHR$(PEEK(X)):NEXT:SYS49230:RETURN
  63. 83 POKE733,N*-1*(XP<>2):POKE734,N:POKE735,N*-1*(XP<3):RETURN
  64. 85 MJ$=" [194]LOCKS":IFU4=.THENMJ$="[160][194]YTES":F=F*W
  65. 86 IFU4=.ANDF>1024THENMJ$=" [203]ILOBYTES":F=F/1024:F=INT(F*10^2+.5)/10^2
  66. 87 A$=A$+MID$(STR$(F),2)+MJ$+" [198]REE":GOTO2
  67. 100 IFPEEK(1064)=32THEN100
  68. 101 OPEN5,2,.,CHR$(6):CP=PEEK(719):M=4096:Y=64:N=128:C=256:B=255:W=254
  69. 103 MP=PEEK(742)+PEEK(743)*C
  70. 106 R=192:I$="":FORX=1070TO1073:A$=CHR$(PEEK(X)):I$=I$+A$:NEXT
  71. 107 IFLEFT$(I$,1)=" "THENI$=MID$(I$,2)
  72. 108 GOSUB5900
  73. 110 Y$=CHR$(.):M$="P"+CHR$(99):WT=10800:Q$=CHR$(34):C$=CHR$(160)
  74. 115 WP$="[208]ASSWORD":L$="0":R$=CHR$(13):SU$="[207][203]":SW$=",S,W":G$="[196]IRECTORY
  75. 120 J$[178]"(null)(null)(null)(null)(null)":V$[178]"RIGHT$NVALID ":W$[178]"ATNBORTED":[151]1023,B:P$[178]"STR$OWNLOAD
  76. 170 BS=B:CLOSE9:OPEN9,8,2,"0:CUSTOM":INPUT#9,PS$:INPUT#9,A$
  77. 180 LF=VAL(A$):INPUT#9,DR$:DR=VAL(DR$):IFDR=-1THEN197
  78. 185 DIMDR$(4,DR),IT$(DR),JT$(DR),U(DR)
  79. 190 FORX=.TODR:FORJM=1TO3:INPUT#9,DR$(JM,X):NEXTJM,X
  80. 195 FORX=.TODR:DR$(2,X)=DR$(2,X)+":":NEXT
  81. 197 INPUT#9,MG$:MG=VAL(MG$):FORX=.TOMG:FORJM=.TO3:INPUT#9,A$:NEXTJM,X
  82. 200 INPUT#9,NC$:NC=VAL(NC$):FORX=.TONC:INPUT#9,A$:NEXT
  83. 205 INPUT#9,A$,BD$:BD=VAL(A$):BD$=BD$+":":INPUT#9,UM$,PG$,A$,LD$
  84. 206 UM=VAL(UM$):LD=VAL(A$):LD$=LD$+":":PG=VAL(PG$):IFDR>-1THENDIMHD$(PG)
  85. 207 INPUT#9,A$,NB$,JM$,CG$,A$,P1$,P2$:EZ=VAL(JM$):P1=VAL(P1$):X=.:P1$=""
  86. 208 DIMTB$(VAL(NB$)+7),A%(20),P1$(P1):PD=VAL(A$):JM$=""
  87. 209 FORX=.TOP1:INPUT#9,P1$(X):NEXT:X=8
  88. 210 INPUT#9,TB$(X):X=X+1:IFST=.THEN210
  89. 220 CLOSE9:OPEN9,8,9,"0:STATS":FORX=.TOMG:INPUT#9,SY$(X),R4$(X),AL$(X),RF$(X):NEXT
  90. 240 INPUT#9,US$,OL$,YV$,FB$,BF$:IFDR=-1THEN260
  91. 250 FORX=.TODR:INPUT#9,DR$(4,X):NEXT
  92. 260 CLOSE9:U=8
  93. 265 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)OR16:CLOSE1:OPEN1,LD,15,"UI+":CLOSE1
  94. 270 XP$="[195]1:
  95. 280 [151]650,N:PP[178]709:T[178]5184E3:A$[178]"                                        "
  96. 290 [129]X[178]1[164]6:X$[178]X$[170]A$:[130]:X$[178]X$[170]"               ":[129]X[178]1[164]16:[130]
  97. 300 US[178][197](US$):WD[178][194](687):RT$[178]R$:[139]WD[177]40[167]RT$[178]" "
  98. 315 [159]3,8,3,"0:INDEX":A$[178]X$[170]"":[158]49227,A$:A$[178][200](A$,[194](2025)[171]1):[160]3:PU$[178]A$
  99. 320 E$[178]"":[129]X[178].[164]1:A[178]([194](710[170]X)):[141]78:E$[178]E$[170]A$:[130]
  100. 350 DY$[178][202]([196]([194](999)),2):[139][195](DY$)[178]1[167]DY$[178]"0"[170]DY$
  101. 360 Z$[178][202]([196]([194](1000)),2):[139][195](Z$)[178]1[167]Z$[178]"0"[170]Z$
  102. 370 Y2[178][194](1001):Y3[178][194](1002):YR[178]Y3[172]C[170]Y2:YR$[178][202]([196](YR),2)
  103. 380 D$[178]DY$[170]Z$[170][201](YR$,2)
  104. 390 [141]18:[141]80:E[178][197]([200](B$,2))[172]60[174]3[170][197]([202](B$,4,2))[172]60[174]2
  105. 400 E[178]E[170]([197]([201](B$,2))[170]1)[172]60:E[178]TI[171]E
  106. 404 N$[178]"":[129]X[178]971[164]995:A$[178][199]([194](X)):[139]A$[178][199](.)[167]NX[178]995:[137]407
  107. 405 N$[178]N$[170]A$
  108. 407 [130]:[129]X[178]1[164]25:[139][201](N$,X)[178][201](X$,X)[167][130]
  109. 408 N$[178][200](N$,26[171]X):[139]N$[179][177]J$[167]6100
  110. 410 OC[178]B:U4[178]1:K3[178]B:K4[178]B:FW[178]20:SC[178]1:CN[178]1:P[178]1:WD[178]38:U3[178].:[137]908
  111. 420 K9$[178][202]("MID$ANASCEB(null)ARATNPR(null)AYMID$UNMID$ULATNUG(null)EP(null)CT(null)OVSTR$EC",([197]([202](K$,3,2))[171]1)[172]3[170]1,3)
  112. 430 K$[178][200](K$,2)[170]"-"[170]K9$[170]"-"[170][201](K$,2):[142]
  113. 500 [141]13:[159]1,PD,15,"S0:PRG LIST"[170]L$:[160]1:[159]2,PD,2,"0:PRG LIST"[170]L$[170]SW$
  114. 501 J[178][197](DR$(4,L)):[152]2,"  ":[139]J[178].[167][160]2:[137]3640
  115. 502 [129]JM[178]1[164]J:[152]2,HD$(JM):[130]:[160]2:[137]3640
  116. 550 FD$[178][201](A$,12):DL$[178][201](FD$,3):FD$[178][200](FD$,9):A$[178][200](A$,[195](A$)[171]12)
  117. 551 JM[178].:[129]X[178][195](A$)[164]1[169][171]1:[139][202](A$,X,1)[178]""[167]CM$[178][202](A$,X[170]1):JM[178]X:X[178]1
  118. 552 [130]:[139]JM[167]X[178]JM
  119. 554 A$[178][200](A$,X[171]1):T$[178][200](A$,6):U$[178]"":JM[178].:[129]WW[178]13[164]28:K1$[178][202](A$,WW,1)
  120. 556 [139]K1$[178]""[167]JM[178]WW:WW[178]28:[137]560
  121. 558 U$[178]U$[170]K1$
  122. 560 [130]:[139]JM[167]WW[178]JM:JM[178].
  123. 562 PW$[178][202](A$,7,6):TY[178][195](A$)[171]13[171][195](U$):TY$[178][201](A$,TY):[142]
  124. 599 JU$[178][200](TI$,4)
  125. 600 K1$[178]"A":[139][197](JU$)[177]1159[167]K1$[178]"P
  126. 601 IFVAL(JU$)>1259THENJU$=MID$(STR$(VAL(JU$)-1200),2)
  127. 602 IFVAL(LEFT$(JU$,2))=.THENJU$=MID$(STR$(VAL(JU$)+1200),2)
  128. 603 IFLEN(JU$)=3THENJU$="0"+JU$
  129. 604 JU$=LEFT$(JU$,2)+":"+RIGHT$(JU$,2)+K1$:K1$="":RETURN
  130. 908 IFDR=-1THEN928
  131. 909 X=.:GOSUB911:GOTO923
  132. 911 CLOSE2:OPEN2,PD,2,"0:PRG LIST"+MID$(STR$(X),2)
  133. 913 J=VAL(DR$(4,X)):INPUT#2,A$:IFJ=.THEN920
  134. 914 POKE687,138:POKE685,.:POKE693,.
  135. 915 FORJM=1TOJ:A$="":SYS49194:IFPEEK(685)THENA$=LEFT$(X$,PEEK(685)):SYS49200,A$
  136. 916 SYS49239:HD$(JM)=A$:NEXT:POKE687,WD
  137. 920 CLOSE2:RETURN
  138. 923 CLOSE1:OPEN1,8,15:OPEN2,8,2,"0:TIMES":X=-1:INPUT#1,A,C1$,I,I:IFATHEN928
  139. 924 X=X+1:INPUT#2,IT$(X),JT$(X)
  140. 925 IFLEFT$(IT$(X),1)="*"THENU(X)=1:IT$(X)=MID$(IT$(X),2)
  141. 926 IFLEFT$(JT$(X),1)="*"THENU(X)=U(X)+2:JT$(X)=MID$(JT$(X),2)
  142. 927 IFST=.THEN924
  143. 928 GOSUB13:A$="[212]RANSFER [211]ECTION [214]940904":GOSUB2
  144. 940 IFDR=-1THENA$="[212]RANSFER SECTION CLOSED!":GOSUB9:GOTO3672
  145. 950 POKE687,WD:F$="XINTRO":U=BD:DD$=BD$:GOSUB1660
  146. 1000 SYS49230:POKE687,WD:J=.:AL=.:NF=.:A$=N$:GOSUB14:WT=10800
  147. 1010 FC=.:GOSUB2160:ON-(LO>.)GOTO1385:IFZ=2THENA$="[212]IME [197]XPIRED":GOSUB9:GOTO1385
  148. 1015 IFZTHEN2480
  149. 1020 A$="[216]FER ("+XP$+L$+")> ":IFPTHENA$=L$+":[216]FER> 
  150. 1040 [141]9:O[178]30:[141]4:[139]Z[176]I$[178]"(null)"[167]3
  151. 1050 [139]J9[167]1940
  152. 1060 [141]6:[139]I$[178]"PEEKPEEK(null)"[167]3672
  153. 1070 A$[178][200](I$,4):[139]A$[178]"(null)ATN(null)VAL"[167]51500
  154. 1080 [139]A$[178]"(null)RIGHT$(null)(null)"[167]LG[178].:[137]52000
  155. 1090 [139]A$[178]"(null)(null)(null)CHR$"[167]LG[178]1:[137]52000
  156. 1095 [139]I$[178]"(null)(null)"[176]I$[178]"STR$(null)"[167]11100
  157. 1100 [139][200](I$,1)[178]"(null)"[167]19100
  158. 1104 [139]I$[178]"PEEK(null)(null)"[167]19200
  159. 1105 [139]A$[178]"STR$VAL(null)(null)"[167]50200
  160. 1109 [139]A$[178]"ATN(null)LEN(null)"[167]AL[178]1:I$[178]"(null)(null)ATNSTR$"[170][202](I$,5):[137]1070
  161. 1110 [139]A$[178]"(null)(null)ATNSTR$"[167]51000
  162. 1120 [139]I$[178]"?"[176]I$[178]"LEFT$"[167]F$[178]"HELPL":U[178]BD:DD$[178]BD$:[141]1660:[137]3
  163. 1130 [139]A$[178]"STR$(null)RIGHT$(null)"[167]10000
  164. 1140 [139][200](I$,1)[178]"LEN"[167]1880
  165. 1170 [139]I$[178]"(null)"[167]2060
  166. 1180 [139]I$[178]"RIGHT$(null)(null)(null)(null)"[167]950
  167. 1195 [139][200](I$,3)[178]"STR$RIGHT$(null)"[167]VQ$[178]L$:[137]53080
  168. 1200 [129]X[178].[164]P1:[139]I$[178]P1$(X)[167]X[178]P1:[130]:[137]27003
  169. 1201 [130]
  170. 1320 [139]I$[178]"(null)"[167]1385
  171. 1330 [139]I$[179][177]"CHR$"[167]A$[178]"? FOR LEFT$ELP":[137]20
  172. 1350 J[178]1:A$[178]"(null)OGOFF, YOU SURE? ":[141]9:VK$[178]"(null)(null)":[141]25:[139]Z[178].[175]D[178].[167]3
  173. 1385 [151]1023,W:[137]3673
  174. 1560 [151]707,.
  175. 1570 A[178][198](A$)
  176. 1580 [139]A[178]136[167]1910
  177. 1590 [139]A[178]137[176][194](702)[178]B[167][142]
  178. 1592 [139]A[178]135[167][141]6000:A$[178]Y$:[139]DE[167]Z[178]1:[142]
  179. 1593 [139]A[178]139[167]E[178]TI:K[178]E:I$[178]"(null)":[129]X[178]56587[164]56584[169][171]1:[151]X,.:[130]:X[178][194](56584):[142]
  180. 1600 A$[178]AS$:[137]1820
  181. 1610 [161]#5,K9$:Q[178].:H$[178]"":[139]A$[178]""[167][141]8:[137]1620
  182. 1615 [158]49203,A$:[158]49239:[141]11:[139]Z[167]H$[178]"":Q[178]1:[142]
  183. 1620 [139][201](A$,1)[179][177]""[175]SK[178].[167]2840
  184. 1630 [142]
  185. 1650 U[178]8:DD$[178]"0:
  186. 1660 GOSUB13:OPEN1,U,15:OPEN2,U,2,DD$+F$
  187. 1680 POKE685,.:POKE693,.:INPUT#1,A,A$,I,I:IFATHEN13
  188. 1690 GOSUB8
  189. 1700 A$="":SYS49194:S=ST:IFPEEK(685)THENA$=LEFT$(X$,PEEK(685)):SYS49200,A$
  190. 1703 SYS49239:IFFWTHENFC=FC+1:IFFC=FWTHENGOSUB71:IFI$="[206]"THENS=Y:GOTO1725
  191. 1720 GOSUB2
  192. 1725 IF(SANDY)=YORQTHENCLOSE2:CLOSE1:A=.:RETURN
  193. 1730 GOTO1700
  194. 1740 POKE694,.:GOSUB18:IFJ9ANDJ<>1THENI$=C$:A$=C$:GOTO2
  195. 1750 GOSUB56:IFPATHENGOSUB23
  196. 1810 POKE703,.:IFO=.THENO=38
  197. 1820 A$=LEFT$(X$,O):SYS49215,A$:IFJ=1ANDPEEK(707)=136THENPOKE707,.:GOTO1820
  198. 1830 IFPEEK(707)>.THENAS$=A$:A$=CHR$(PEEK(707)):GOTO1560
  199. 1840 IFPEEK(703)>.THENZ=2:I$=C$:RETURN
  200. 1850 I$=A$:I$=LEFT$(I$,PEEK(694))
  201. 1860 IFPEEK(694)=.THENI$=C$
  202. 1870 O=.:RETURN
  203. 1880 IFPEEK(739)THENA$="[211]ORRY, [211]YSOP NOT AVAILABLE.":GOTO20
  204. 1885 IFPATHENA$="[208]AGER IS [207][198][198]":POKE54296,.:PA=.:POKE690,PEEK(729):GOTO20
  205. 1890 PA=1:POKE54296,15:A$="[208]AGER IS [207][206]":POKE690,7:GOTO20
  206. 1910 IFJ9THENK=TI:J9=.:RETURN
  207. 1920 J9=1:I$=C$:A$=C$:GOTO2
  208. 1940 POKE54296,.:PA=.:A$="[195]HAT [205]ODE":GOSUB9:POKE690,PEEK(729):GOTO2550
  209. 2060 GOSUB599:A$="[195]URRENT TIME IS "+JU$+"M, "
  210. 2070 K$=D$:GOSUB10:A$=A$+K$:GOSUB9:IFTI<ETHENE=E-T
  211. 2080 L2=TI:TH=INT((L2-E)/60^3):L2=L2-60^3*TH:TM=INT((L2-E)/60^2):L2=L2-60^2*TM
  212. 2090 TS=INT((L2-E)/60):IFTH<10THENTH$="0"+RIGHT$(STR$(TH),1):GOTO2110
  213. 2100 TH$=RIGHT$(STR$(TH),2)
  214. 2110 IFTM<10THENTM$="0"+RIGHT$(STR$(TM),1):GOTO2130
  215. 2120 TM$=RIGHT$(STR$(TM),2)
  216. 2130 IFTS<10THENTS$="0"+RIGHT$(STR$(TS),1):GOTO2150
  217. 2140 TS$=RIGHT$(STR$(TS),2)
  218. 2150 A$=" [195]ONNECT [212]IME = "+TH$+":"+TM$+":"+TS$:GOTO5
  219. 2160 TC=56328:X9=PEEK(TC+3):A%=(X9AND16)/16+48:B%=(X9AND15)+48
  220. 2170 IFX9=>NANDVAL(CHR$(A%)+CHR$(B%))<12THENA%=A%+1:B%=B%+2
  221. 2180 IFB%>57THENA%=A%+1:B%=B%-10
  222. 2190 IFX9<NANDA%=49ANDB%=50THENA%=48:B%=48
  223. 2200 X9=PEEK(TC+2):C%=(X9AND240)/16+48:D%=(X9AND15)+48
  224. 2210 X9=PEEK(TC+1):E%=(X9AND240)/16+48:F%=(X9AND15)+48
  225. 2220 X9=PEEK(TC):TI$=CHR$(A%)+CHR$(B%)+CHR$(C%)+CHR$(D%)+CHR$(E%)+CHR$(F%)
  226. 2230 IFF1=1THENF1=.:RETURN
  227. 2240 IFTI<ETHENE=E-T
  228. 2250 L2=TI-E
  229. 2252 GOSUB11:IFZTHENRETURN
  230. 2253 L7=INT(L2/60^3):L8=INT((L2-L7*60^3)/60^2):L9=INT((L2-L7*60^3-L8*60^2)/60)
  231. 2254 L4=L7*60+L8:IFL4>=EZANDSC=.THENZ=2:RETURN
  232. 2255 IFL4>=EZ-10ANDSC=.THENGOSUB2750:A$="[195]ONNECT [212]IME > "+T9$:GOSUB9
  233. 2260 IFVAL(TI$)<10000ANDPEEK(1018)<>1THEN2290
  234. 2270 IFTI$>"010000"THENPOKE1018,.
  235. 2280 RETURN
  236. 2290 POKE1018,1:IFDY$="28"ANDZ$="02"THEN2420
  237. 2300 IFDY$="29"ANDZ$="02"THENDY$="01":Z$="03":GOTO2440
  238. 2310 IFDY$="31"AND(Z$="01"ORZ$="10"ORZ$="03"ORZ$="05"ORZ$="07")THEN2360
  239. 2320 IFDY$="31"AND(Z$="08"ORZ$="12")THEN2360
  240. 2330 IFDY$="30"AND(Z$="09"ORZ$="11"ORZ$="04"ORZ$="06")THEN2360
  241. 2340 DY$=MID$(STR$(VAL(DY$)+1),2):IFLEN(DY$)=1THENDY$="0"+DY$
  242. 2350 GOTO2440
  243. 2360 TJ=VAL(Z$)+1:IFTJ<10THENLT=1:GOTO2380
  244. 2370 LT=2:GOTO2380
  245. 2380 DY$="01":Z$=RIGHT$(STR$(TJ),LT)
  246. 2390 IFLT=1THENZ$="0"+Z$
  247. 2400 IFZ$="13"THENYR$=RIGHT$(STR$(VAL(YR$)+1),4):Z$="01"
  248. 2410 GOTO2440
  249. 2420 YR=VAL(YR$):Y2=YR/4:YR=INT(YR/4):IFYR=Y2THENDY$="29":GOTO2440
  250. 2430 DY$="01":Z$="03"
  251. 2440 POKE999,VAL(DY$):POKE1000,VAL(Z$):YR=VAL(YR$):Y3=INT(YR/C)
  252. 2450 Y2=YR-(Y3*C):POKE1001,Y2:POKE1002,Y3:D$=DY$+Z$+RIGHT$(YR$,2)
  253. 2460 K$=D$:GOSUB10:GOSUB19:A$=" "+R$+"[196]ATE: "+K$+R$+" ":PRINT#2,A$:CLOSE2
  254. 2470 OPEN2,8,2,"0:LU,S,A":PRINT#2,A$:CLOSE2:OPEN2,8,2,"0:LD,S,A":PRINT#2,A$:GOTO13
  255. 2480 POKE1023,253:J9=.:GOSUB2510:POKE54296,.:GOTO3675
  256. 2510 SYS49230:FORX=8TOVAL(NB$)+7:CLOSE1:OPEN1,X,15:CLOSE1
  257. 2520 IFST=.THENOPEN1,X,15,"I0:":CLOSE1
  258. 2540 NEXT:RETURN
  259. 2550 POKE694,.:POKE702,B:SYS49215,X$
  260. 2560 IFPEEK(707)=.THEN2550
  261. 2570 A$=CHR$(PEEK(707)):GOSUB1560:IFJ9=.ORZTHENGOSUB8:K=TI:GOTO3
  262. 2580 GOTO2550
  263. 2750 IFTI<ETHENE=E-T
  264. 2760 L2=TI:TH=INT((L2-E)/60^3):L2=L2-60^3*TH:TM=INT((L2-E)/60^2):L2=L2-60^2*TM
  265. 2770 TS=INT((L2-E)/60):IFTH<10THENTH$="0"+RIGHT$(STR$(TH),1):GOTO2790
  266. 2780 TH$=RIGHT$(STR$(TH),2)
  267. 2790 IFTM<10THENTM$="0"+RIGHT$(STR$(TM),1):GOTO2810
  268. 2800 TM$=RIGHT$(STR$(TM),2)
  269. 2810 IFTS<10THENTS$="0"+RIGHT$(STR$(TS),1):GOTO2830
  270. 2820 TS$=RIGHT$(STR$(TS),2)
  271. 2830 T9$=TH$+":"+TM$+":"+TS$:RETURN
  272. 2840 SK=.:K=TI:IFK9$>""THENA$=K9$:GOTO2870
  273. 2850 GETA$:IFA$>""THEN2870
  274. 2860 GET#5,A$:IFA$>""THEN2870
  275. 2865 IF(PEEK(673)AND1)=.THENRETURN
  276. 2867 GOTO2850
  277. 2870 K=TI:Z=.:A=ASC(A$):IFA>127THENA$=CHR$(A-N)
  278. 2875 IFA$=CHR$(131)THENA$="
  279. 2880 [139]A$[178]""[176]A$[178]""[176]A$[178]""[167]H$[178]A$:Q[178]1:[142]
  280. 2890 [139]A$[178][199](83)[176]A$[178][199](115)[176]A$[178]""[167]A$[178]"<LEN>":SK[178]1:[141]2:[137]2960
  281. 2900 [137]2850
  282. 2960 [161]A$:[139]A$[177]""[167]2990
  283. 2970 [139]TI[171]K[177]WT[167]A$[178][199](65):Z[178]1:[137]2990
  284. 2980 [161]#5,A$:[139]A$[178]""[167]2960
  285. 2990 A[178][198](A$):[139]A[177]127[167]A$[178][199](A[171]N)
  286. 3000 [139]A$[178][199](65)[176]A$[178][199](97)[176]A$[178]""[167][141]3055:Q[178]1:[142]
  287. 3010 [139]A$[178][199](67)[176]A$[178][199](99)[176]A$[178]""[167]3055
  288. 3020 [137]2960
  289. 3055 A$[178][199](20):A$[178]A$[170]A$[170]A$[170]"":[141]2:SK[178].:FC[178].:[142]
  290. 3330 [141]74:FL[178].:X[178][181](US[173]2):N4[178]US:N3[178].:[139][194](730)[167]X[178][194](730)
  291. 3350 H[178][181](X[173]C):G[178]X[171]C[172]H
  292. 3360 [141]37:A$[178]X$[170]"":[158]49227,A$:[141]37
  293. 3370 A$[178][200](A$,[194](2025)[171]1):N9$[178][200](A$,[195](A$)[171]58)
  294. 3380 [139]N$[178]N9$[167]13
  295. 3390 [139]FL[178].[175]N4[171]N3[178]1[167]X[178]N4:FL[178]1:[137]3350
  296. 3400 [139]FL[178]1[175]N4[171]N3[178]1[167]13
  297. 3410 [139]N$[177]N9$[167]N3[178]X:X[178]X[170][181]((N4[171]X)[173]2):[137]3350
  298. 3420 N4[178]X:X[178]X[171][181]((X[171]N3)[173]2):[137]3350
  299. 3640 [160]14:[160]1:[159]1,8,15,"S0:STATS":[152]1,"I0":[160]1
  300. 3645 [159]14,8,14,"0:STATS,S,W
  301. 3650 FORX=.TOMG:PRINT#14,SY$(X);R$;R4$(X);R$;AL$(X);R$;RF$(X):NEXT
  302. 3660 PRINT#14,STR$(US);R$;Q$+OL$;R$;YV$;R$;FB$;R$;BF$:IFDR=-1THEN3671
  303. 3670 FORX=.TODR:PRINT#14,DR$(4,X):NEXT
  304. 3671 CLOSE14:RETURN
  305. 3672 POKE1023,B:SYS65484:A$="[207]NE MOMENT...":GOSUB9:GOTO3675
  306. 3673 GOSUB80:GOSUB599:A$="[204]OGOFF AT "+JU$+"M
  307. 3674 [141]9:A$[178]"LENONNECT (null)IME = "[170]B$[170]"(null)LEASE CALL AGAIN.":[141]2
  308. 3675 [151]54296,.:LP$[178]"":F$[178]"BBS6*
  309. 3677 IFPQTHENGOSUB19140
  310. 3678 IFTB$(LD)="0"THENPOKE53265,PEEK(53265)AND239:CLOSE1:OPEN1,LD,15,"UI-":CLOSE1
  311. 3685 PRINT"[147]NEW"R$"LOAD"Q$;LD$;LP$;F$;Q$",";LD;":"R$"RUN":POKE198,3
  312. 3690 POKE631,13:POKE632,13:POKE633,13:PRINT"":A$=N$:GOSUB14:END
  313. 4000 B$="LD":X=1:F$="":IFNF<=YNTHENM3=A%(NF):A$=HD$(M3):GOSUB550:F$=U$:X=1
  314. 4002 A=TI
  315. 4004 GET#5,A$:IFA$=""THEN51370
  316. 4006 IFA$<>"C"AND(TI-A<600)THEN4004
  317. 4008 IFA$<>"C"THENX=X+1:IFX<10THEN4002
  318. 4010 IFA$<>"C"THEN51370
  319. 4012 BL$=""+Y$+CHR$(B):POKE736,.:POKE737,.
  320. 4014 IFNF>YNTHEN4018
  321. 4016 FORX=1TOLEN(F$):BL$=BL$+CHR$(ASC(MID$(F$,X,1))AND127):NEXT
  322. 4018 FORX=1TO(131-LEN(BL$)):BL$=BL$+Y$:NEXT
  323. 4020 FORX=4TO131:POKE780,ASC(MID$(BL$,X,1)+Y$):SYS49266:NEXT
  324. 4021 POKE780,.:SYS49266:POKE780,.:SYS49266
  325. 4022 BL$=BL$+CHR$(PEEK(737))+CHR$(PEEK(736)):PRINT#5,BL$;:X=1
  326. 4024 A=TI
  327. 4026 GET#5,A$
  328. 4028 IFA$=""THEN51370
  329. 4030 IFA$<>""AND(TI-A<600)THEN4026
  330. 4032 IFA$<>""THENX=X+1:IFX<10THEN4024
  331. 4034 IFA$<>""THEN51370
  332. 4040 IFNF>YNTHEN51367
  333. 4042 GOTO51310
  334. 5900 BR=VAL(I$):POKE659,6:RC=1022730/BR:GOSUB5950
  335. 5910 POKE176,G:POKE177,H:POKE665,G
  336. 5920 POKE666,H:RC=1022730/BR/2-100:GOSUB5950:POKE661,G:POKE662,H
  337. 5930 IFLEN(I$)=3THENI$="0"+I$
  338. 5940 FORX=1TO4:POKEX+964,ASC(MID$(I$,X,1)):NEXT:RETURN
  339. 5950 H=INT(RC/C):G=INT(RC-H*C):RETURN
  340. 6000 A$="LOGOFF USER? ":B$=A$:GOSUB14
  341. 6010 GETA$:IFA$=""THEN6010
  342. 6020 IFA$="N"THENA$=B$+"NO":DE=.:GOTO14
  343. 6030 IFA$="Y"THENA$=B$+"YES":DE=1:GOTO14
  344. 6040 GOTO6010
  345. 6100 GOSUB3330:ZL=G:ZH=H:ZR$=A$:BA$=RIGHT$(A$,28):A$=LEFT$(A$,LEN(A$)-28)
  346. 6105 XZ$=RIGHT$(A$,30):FG=ASC(MID$(XZ$,20,1)):XP=(FGAND31):FW=ASC(MID$(XZ$,21,1))
  347. 6106 OC=ASC(MID$(XZ$,22,1)):K3=ASC(MID$(XZ$,23,1)):K4=ASC(MID$(XZ$,24,1))
  348. 6107 AC=ASC(MID$(XZ$,25,1)):IFXPTHENXP$=MID$("[195][210][195]:[195][200][203]:[216]1K:[217]MB:",4*(XP-1)+1,4)
  349. 6108 GH$=RIGHT$(XZ$,5)
  350. 6110 POKE701,((FGAND32)=.)+1:U1$=MID$(XZ$,13,7):RH=ASC(LEFT$(U1$,1))-R
  351. 6120 RL=ASC(MID$(U1$,2,1))-R:RN=RH*Y+RL:RV=ASC(MID$(U1$,5,1))-R
  352. 6130 RN=RN+RV*M:CS=ASC(MID$(U1$,6,1)):MN$=MID$(U1$,4,1):LJ=PEEK(704)
  353. 6140 MN=ASC(MID$(U1$,4,1))-R:FG=ASC(MID$(U1$,3,1)):SC=((FGAND4)=.)+1
  354. 6150 CN=((FGAND2)=.)+1:P=((FGAND1)=.)+1:WD=ASC(MID$(U1$,7,1)):POKE687,WD
  355. 6160 N5=((FGAND8)=.)+1:K$=MID$(XZ$,7,6):IFPEEK(690)=7THENPA=1
  356. 6180 U1=((FGAND16)=.)+1:U2=((FGAND32)=.)+1
  357. 6190 U3=((FGANDY)=.)+1:U4=((FGANDN)=.)+1
  358. 6200 I$=LEFT$(XZ$,6):GOSUB6:CW$=I$:XZ$=CW$+D$+U1$
  359. 6210 G2=G:H2=H:GOTO908
  360. 7000 VQ$=L$:IFLEN(I$)>7THENL$="":RETURN
  361. 7002 L$=MID$(STR$(VAL(MID$(I$,5))),2)
  362. 7003 IFLEN(I$)=4THENL$=VQ$
  363. 7004 L=VAL(L$):IF(L<.ORL>DR)OR(L=.ANDL$<>"0")THENL$="":L=.:RETURN
  364. 7006 U=VAL(DR$(1,L)):DD$=DR$(2,L):IFL>13THEN7009
  365. 7007 IFL<7AND(K3AND2^(L+1))=.THEN7012
  366. 7008 IFL>6AND(K4AND2^(L-6))=.THEN7012
  367. 7009 IFL$<>VQ$THENFORX=1TOPG:HD$(X)="":NEXT:X=L:GOSUB911
  368. 7010 A$=G$+" "+L$+":"+DR$(3,L):GOTO9
  369. 7012 A$="[193]CCESS TO DIR "+L$+" DENIED!":GOSUB9:GOTO53090
  370. 7050 SP$=LEFT$(X$,40):PRINT"[147]";:FORX=1TO6:PRINTSP$;:NEXT
  371. 7055 PRINT"[152]";:FORX=1TO40:PRINT"[192]";:NEXT:PRINT"[151]";
  372. 7060 FORX=1TO12:PRINTSP$;:NEXT:SP$="":PRINTLEFT$(X$,31)"[152][176][192][192][192][192][192][192][192][192]";
  373. 7065 FORX=1TO31:PRINT"[192]";:NEXT:PRINT"[189]":SP$=""
  374. 7070 PRINT"       [206]AME: "N$R$"[145]   [198]ILENAME: "F$:IFXP=.THENRETURN
  375. 7075 PRINT"          [212]RANSFER [201]N [208]ROGRESS
  376. 7076 [139]XP[178]4[167][153]"            ASCILE";NF;"OF";YN
  377. 7080 [153]"POKE ASCILE (null)YPE: PRINT#"FT$
  378. 7085 [153]"ONONPOKEPEEKAD PEEKLOCKS: PRINT#00000":[153]"ONONPOKEPEEKLOCKS (null)ENT: PRINT#00000";:[142]
  379. 10000 A$[178]P$[170]"ING ALLOWED DURING:":[141]9:JM[178].
  380. 10001 [129]X[178].[164]DR
  381. 10002 JU$[178]IT$(X):[141]600:JM$[178]JU$[170]" TO "
  382. 10003 JU$[178]JT$(X):[141]600:JM$[178]JM$[170]JU$:[139][197](IT$(X))[178].[167]JM$[178]"24 HOURS
  383. 10004 IFU(X)>1THENJM$="[206]O "+P$+"ING
  384. 10005 [139]U(X)[178]3[176]U(X)[178]1[167]JM$[178]JM$[170]", (null)O (null)PLOADING
  385. 10006 IFU(X)=.ORU(X)=2THENJM$=JM$+", [213]PLOADING [193]LLOWED
  386. 10007 [139]JM[178]99[167][142]
  387. 10008 A$[178][202]([196](X),2)[170]": "[170]JM$:[141]2:[139]Q[167]X[178]DR
  388. 10009 [130]:[137]3
  389. 11100 A$[178]"STR$:ASCILENAME         (null)SER":[141]9:[151]687,50:F$[178]"LD":[139]I$[178]"(null)(null)"[167]F$[178]"LU"
  390. 11120 [141]15:[137]3
  391. 19100 A$[178]"(null)ELECT (null)ROTOCOL":[141]9
  392. 19110 A$[178]"[0] - (null)UNTER LEN1[1] - (null)MODEM LEN(null)LEN":[141]9
  393. 19120 A$[178]"[2] - (null)MODEM LENHECKSUM[3] - (null)MODEM 1K (ASCULL PEEKLOCK VALNDINGS)":[141]2
  394. 19125 A$[178]"[4] - (null)MODEM ("[170]P$[170]" (null)NLY)":[141]2
  395. 19130 A$[178]">":[141]9:VK$[178]"012":JM[178]XP:[141]25:[139]JM[178]XP[176]Z[176]I$[178]R$[167]JM[178].:[137]3
  396. 19135 PQ[178]1:JM[178].:[137]3
  397. 19140 [141]13:[139]N$[178]J$[167][142]
  398. 19141 RV[178][181](RN[173]M):RH[178]RN[171]RV[172]M:RH[178][181](RH[173]Y):RL[178]RN[171]RV[172]M[171]RH[172]Y
  399. 19142 RV[178]RV[170]R:RH[178]RH[170]R:RL[178]RL[170]R:ZT[178]P[170]CN[172]2[170]SC[172]4[170]N5[172]8[170]U1[172]16[170]U2[172]32[170]U3[172]Y[170]U4[172]N
  400. 19143 [141]74:ZR$[178]N$[170][200](XZ$,6)[170]D$[170][199](RH)[170][199](RL)[170][199](ZT)[170]MN$[170][199](RV)
  401. 19144 [139]CS[177]B[167]CS[178]B
  402. 19145 ZR$[178]ZR$[170][199](CS)[170][199](WD)[170][199](XP[170]32[172][194](701))[170][199](FW)[170][199](OC)[170][199](K3)[170][199](K4)
  403. 19146 ZR$[178]ZR$[170][199](AC)[170]GH$[170]BA$:[152]1,M$[199](G2)[199](H2)Y$
  404. 19147 [152]3,ZR$:[152]1,M$[199](G2)[199](H2)Y$:[137]13
  405. 19200 U4[178]1[171]U4:PQ[178]1:A$[178]"PEEKLOCKS DISPLAY "[170][202]("(null)FF(null)N ",3[172]U4[170]1,3):[137]20
  406. 27003 F$[178]I$:LP$[178]"L-
  407. 27010 GOSUB13:OPEN1,LD,15:OPEN2,LD,2,LD$+LP$+F$:CLOSE2:INPUT#1,A,C1$,I,I:CLOSE1
  408. 27011 IFA=.THENGOSUB34:GOSUB8:GOTO3677
  409. 27013 IFLP$="L-"ANDSCTHENLP$="S-":GOTO27010
  410. 27015 GOTO1330
  411. 50200 GOSUB7000:IFL$=""THEN53080
  412. 50210 GOSUB44:IFI$=C$THEN3
  413. 50240 GOSUB6:F$=I$:GOSUB13
  414. 50250 GOSUB22:IFM3=1THEN50360
  415. 50260 M3=M3-1:A$=HD$(M3):GOSUB550:SYS49239:IFU$=F$THEN50390
  416. 50340 IFM3=1THEN50360
  417. 50350 GOTO50260
  418. 50360 A$="[198]ILE [206]OT [204]ISTED":GOSUB9:GOTO50210
  419. 50390 IFSCTHEN50430
  420. 50400 IFLEFT$(N$,15)<>TY$THENA$="[206]OT YOURS"+W$:GOTO12
  421. 50430 A$="[196]ELETING":GOSUB9
  422. 50433 IFM3=VAL(DR$(4,L))THENHD$(M3)="":GOTO50450
  423. 50435 FORX=M3TOVAL(DR$(4,L))-1:HD$(X)=HD$(X+1):NEXT
  424. 50450 DR$(4,L)=MID$(STR$(VAL(DR$(4,L))-1),2)
  425. 50470 GOSUB500:A$="R"+DD$+"D"+LEFT$(F$,14)+L$+"="+DD$+F$+L$
  426. 50480 OPEN1,U,15,A$:CLOSE1:GOTO3
  427. 50500 A$=P$+"ING IS ONLY PERMITTED DURING":GOSUB9:JU$=IT$(L):GOSUB600
  428. 50501 A$="THE HOURS OF "+JU$+" TO ":JU$=JT$(L):GOSUB600
  429. 50502 A$=A$+JU$+" FOR"+RT$+"THIS "+G$+".":GOTO5
  430. 50600 A$="[217]OU DON'T HAVE ENOUGH TIME LEFT TO":GOSUB9
  431. 50601 A$=A$+RT$+P$+" THIS FILE. [201]N THE TIME LEFT":GOSUB2
  432. 50605 A=EZ-L4:FZ=17:IFXPTHENFZ=19:IFXP>2THENFZ=21
  433. 50606 FZ=FZ*(1-1*(BR>1230)):IFBR<1200THENFZ=5:IFXPTHENFZ=6
  434. 50607 F=A*FZ:FZ=.:B$=" [195][194][205] BLOCKS.":IFU4=.THENF=F*W:B$=" BYTES.
  435. 50610 A$[178]"YOU MAY "[170]P$[170][196](F)[170]B$:[141]2:[137]2060
  436. 50620 JU$[178]JT$(L):[141]600
  437. 50621 A$[178]"(null)ORRY, "[170]P$[170]"ING ENDS AT "[170]JU$[170]RT$[170]" FOR THIS "[170]G$[170]".":[141]9:[137]2060
  438. 51000 YN[178].:J7[178].:[141]7000:[139]L$[178]""[167]53080
  439. 51002 [139]U(L)[177]1[175]SC[178].[167]A$[178]"(null)O "[170]P$[170]"ING FROM THIS "[170]G$:[137]20
  440. 51003 TV[178].:[139]AL[176]SC[176][197](IT$(L))[178].[167]51010
  441. 51004 O[178][197]([200](TI$,4)):TV[178][197](JT$(L))[171]O
  442. 51005 [139][200](JT$(L),2)[178]"00"[176][201](JT$(L),2)[179][177][201](TI$,2)[167]TV[178]TV[171]40
  443. 51006 [139]O[177][197](JT$(L))[175]O[179][197](IT$(L))[175][197](IT$(L))[177][197](JT$(L))[167]50500
  444. 51008 [139](O[177][197](JT$(L))[176]O[179][197](IT$(L)))[175][197](IT$(L))[179][197](JT$(L))[167]50500
  445. 51010 [139]AL[178].[167][141]45
  446. 51017 [139]XP[178]4[167]A$[178]"(VALNTER RETURN ALONE WHEN DONE)":[141]9
  447. 51020 [141]44:[139]I$[178]C$[175](XP[179]4[176](XP[178]4[175]YN[178].))[176]Z[167]3
  448. 51030 [139](I$[178]C$[175]XP[178]4)[176]YN[178]20[167]F[178]J7:NF[178]1:[137]51224
  449. 51040 [141]6:F$[178]I$
  450. 51050 S$[178]I$:[141]22
  451. 51055 [139]M3[178]1[167]51160
  452. 51060 M3[178]M3[171]1:A$[178]HD$(M3):[158]49239:[139][202](A$,13,[195](F$))[179][177]F$[167]51055
  453. 51130 [141]550:[139]S$[178]U$[167][141]13:[137]51180
  454. 51150 [137]51055
  455. 51160 [141]13:A$[178]F$[170]" NOT ASCOUND":[141]9:[137]51020
  456. 51180 A$[178]"(null)PLOADED BY: "[170]TY$[170]"STR$ESCRIPTION:>"[170]CM$:[141]9
  457. 51190 [151]708,.:[139]SC[176]PW$[178]"NONAME"[167]51215
  458. 51195 A$[178]"ASCILE "[170]WP$:O[178]6:[141]7:I$[178][200](I$[170]"     ",6)
  459. 51200 [141]6:[139]I$[178]PW$[167]A$[178]WP$[170]" ATNCCEPTED":[137]51215
  460. 51210 A$[178]V$[170]WP$[170]R$:[137]5
  461. 51215 [139]AL[175][201](F$,4)[179][177]".ATN(null)LEN"[167]A$[178]"(null)OT AN ATN(null)LEN FILE":[137]20
  462. 51218 [139]AL[167]54480
  463. 51222 [139]XP[178]4[167]YN[178]YN[170]1:J7[178]J7[170][197]([202](T$,3)):A%(YN)[178]M3:[137]51020
  464. 51223 F[178][197]([202](T$,3))
  465. 51224 MJ[178]F:MJ$[178]" LENPEEK(null) PEEKLOCKS":[139]U4[178].[167]MJ$[178]" PEEKYTES":F[178]F[172]W
  466. 51225 A$[178]"(null)ENDING"[170][196](F)[170]MJ$[170]" AT"[170][196](BR)[170]" PEEK(null)(null)":[141]9:F[178]MJ:J7[178].
  467. 51230 FE[178]17:[139]XP[167]FE[178]19:[139]XP[177]2[167]FE[178]21
  468. 51235 FE[178]FE[172](1[171]1[172](BR[177]1230)):[139]BR[177]1199[167]F[178][181](100[172]F[173]FE)[173]100:[137]51240
  469. 51236 FE[178]50:[139]XP[167]FE[178]47:[139]XP[177]2[167]FE[178]45
  470. 51237 F[178][181](100[172]F[173](BR[173]FE))[173]100
  471. 51240 MJ[178].:FE[178].:A$[178]"(null)RANSMIT (null)IME:"[170][196](F)[170]" (null)INUTE(S)":[141]9
  472. 51241 [139]XP[178]4[167]A$[178]" (null)O. OF ASCILES:"[170][196](YN):[141]2
  473. 51243 [141]2160:[139][181](F)[170]L4[177]EZ[175]SC[178].[167]50600
  474. 51244 LO[178].:[139]TV[179][181](F)[175]TV[177].[167]50620
  475. 51245 [139]XP[178]4[167]A$[178]"(null)OGOFF AFTER TRANSFER? ":[141]9:VK$[178]"(null)(null)":[141]25:[139]D[167]LO[178]1
  476. 51246 [139]XP[167]51300
  477. 51250 A$[178]"   PEEKLOCK (null)IZE:"[170][196](BS)[170]R$:[141]2
  478. 51260 [141]42:A$[178]A$[170]" PEEK=LENHANGE PEEKLK (null)IZE":[141]2
  479. 51280 SU$[178]"(null)(null)":[141]52610:[139]SU$[179][177]"(null)(null)"[175]SU$[179][177]"(null)"[167]A$[178]SU$:[137]5
  480. 51290 [139]SU$[178]"(null)"[167][141]8:[137]51260
  481. 51300 [139]XP[167]A$[178]"(null)EADY TO (null)END - LEN(null)(null)(null)-(null) TO ATNBORT":[141]9:[139]XP[178]4[167]4000
  482. 51310 I$[178]F$:A$[178][200](T$,1):[139]A$[178]"(null)"[167]SA[178]2:TP[178]2:FT$[178]"(null)VAL(null)":XO$[178]",S,R":[137]51340
  483. 51330 SA[178].:TP[178]1:FT$[178]"(null)(null)CHR$":XO$[178]",P,R
  484. 51340 SYS49224:POKE708,.
  485. 51345 CLOSE2:OPEN2,U,SA,DD$+I$+L$+XO$:GOSUB7050:IFXPTHENGOSUB83:SYS49269:GOTO51361
  486. 51350 GOSUB7080:SYS49173:POKEPP,TP:SYS49164
  487. 51355 IFPEEK(512)=1THENCLOSE2:GOTO51790
  488. 51360 SYS49173:POKE40984,BS:SYS49158
  489. 51361 CLOSE2:B$="LD":IF(PEEK(MP)AND16)<>CPTHENZ=1:POKE708,B
  490. 51362 IFPEEK(708)=BTHEN51367
  491. 51363 HD$(M3)=LEFT$(HD$(M3),LEN(HD$(M3))-3):DL$=MID$(STR$(VAL(DL$)+1),2)
  492. 51364 HD$(M3)=HD$(M3)+MID$("00",LEN(DL$))+DL$
  493. 51365 IFXP=4THENNF=NF+1:GOTO4000
  494. 51367 FORX=1TO1500:NEXT:GOSUB34:GOSUB500
  495. 51370 GOSUB51945:PRINT"[147]":SYS49230:FORX=1TO1500:NEXT:A$="[207][203]":GOTO20
  496. 51500 GOSUB7000:IFL$=""THEN53080
  497. 51505 IF(U(L)=1ORU(L)=3)ANDSC=.THENA$="[206]O UPLOADING TO THIS "+G$:GOTO20
  498. 51510 IFVAL(DR$(4,L))=>PGTHENA$="[204][201][211][212]"+L$+" [198]ULL":GOTO20
  499. 51515 IFTB$(U)="0"THENYU=1:GOSUB52163:YU=.:GOTO51525
  500. 51520 F$="AAA":GOSUB52200
  501. 51525 IFF<50THENA$="[196]ISK [198]ULL":GOTO20
  502. 51527 J=.:IFXP=4THENXP=3:J=1
  503. 51528 GOSUB45:IFJTHENXP=4:J=.:XP$="[217]MB:
  504. 51530 A$[178]R$:[141]85
  505. 51560 [141]44:[139]I$[178]C$[167]3
  506. 51590 [129]X[178]1[164]15:A$[178][202](I$,X,1):[139]A$[178]"?"[176]A$[178]"*"[176]A$[178]","[176]A$[178]":"[176]A$[178]Q$[167]A2$[178]"ASC
  507. 51600 IFA2$="[198]"THENA$=V$:GOSUB2:A2$="":X=15:NEXT:GOTO51560
  508. 51610 NEXT:GOSUB6:F$=I$:S$=I$
  509. 51630 GOSUB13:GOSUB55:OPEN2,U,2,DD$+F$+L$:INPUT#1,A,I$,I,I:GOSUB13:GOSUB6
  510. 51640 A$=I$:IFA=.THENA$="[198]ILE [197]XISTS
  511. 51690 [139]A[179][177]62[167]20
  512. 51700 J[178]1:A$[178]"VALNTER STR$ESCRIPTION"[170]RT$[170]">":O[178]38:[141]1:[141]6:CM$[178]""[170]I$
  513. 51701 A$[178]"(null)VAL(null)(null)(null)(null) FOR GENERAL ACCESS"[170]RT$[170]"OR ENTER A "[170]WP$:[141]9
  514. 51702 A$[178]">":O[178]6:[141]1:[141]8
  515. 51703 [139]I$[178]C$[167]PW$[178]"NONAME":[137]51720
  516. 51704 I$[178][200](I$[170]"      ",6)
  517. 51705 [129]X[178]1[164]6:[139][202](I$,X,1)[178]","[176][202](I$,X,1)[178]":"[167]A2$[178]"ASC
  518. 51706 IFA2$="[198]"THENA$=V$+"CHARACTER":GOSUB2:A2$="":X=6:NEXT:GOTO51701
  519. 51707 NEXT:GOSUB6:PW$=I$
  520. 51720 POKE708,.:IFXPTHENSYS49224:GOTO51950
  521. 51730 SYS49224:GOSUB42:GOSUB2:L0=1
  522. 51740 SU$="[207][203]":GOSUB52610:L0=.:IFSU$<>"[207][203]"ANDSU$<>"[206]"THENA$=SU$:GOTO5
  523. 51750 IFSU$="[206]"THENGOSUB8:GOTO51720
  524. 51760 I$=F$
  525. 51770 GOSUB7050:SYS49173:SYS49161:GOSUB21:FT$=A$:GOSUB7080
  526. 51780 IFPEEK(512)<>1THEN51820
  527. 51790 PRINT"[147]":A$=W$:SU$=A$:GOTO5
  528. 51820 ZZ$=MID$("PSP",PEEK(PP),1):O$=","+ZZ$+",W
  529. 51835 XF$[178]DD$[170]F$[170]L$[170]O$:[159]2,U,2,XF$
  530. 51836 [139]XP[167][141]83:[158]49218:[160]2:[139][194](708)[179][177].[167]51933
  531. 51838 [139]XP[167]51870
  532. 51840 [129]X[178]1[164]1300:[130]:[158]61310:[158]49173:[158]49155:[160]2:[151]668,[194](667)
  533. 51870 [153]"LOAD":[139]([194](MP)[175]16)[179][177]CP[167]Z[178]1:[151]708,B:[137]51933
  534. 51871 [141]52200:T$[178][202]([196](F),2):JM$[178]F$
  535. 51872 [139][195](T$)[179]4[167]T$[178]"0"[170]T$:[137]51872
  536. 51873 F$[178]"":[141]52200:F$[178]JM$
  537. 51874 [139]F[178].[176][197](T$)[178].[167][160]1:[159]1,U,15,"V"[170]DD$:B$[178]"LU":[141]51945:[137]51790
  538. 51875 JM$[178]"":I$[178]ZZ$:[141]6:[139]PW$[178]"NONAME"[167]ZZ$[178]I$[170]"-"[170]T$:[137]51880
  539. 51876 ZZ$[178]I$[170]"*"[170]T$
  540. 51880 [129]X[178]1[164]1500:[130]:A$[178]"(null)PDATING "[170]G$[170]"...":[141]2
  541. 51890 K$[178]D$:[141]10:[141]22:DR$(4,L)[178][202]([196](M3),2)
  542. 51900 HD$(M3)[178]ZZ$[170]PW$[170]F$[170]""[170]N$[170]CM$[170]K$[170]"000":[141]500
  543. 51930 B$[178]"LU":[141]51945:[129]X[178]1[164]100:[161]#5,A$:[130]:[158]49230:[137]5
  544. 51933 [160]1:[159]1,U,15,"S"[170]XF$:[160]1:B$[178]"LU":[141]51945:[137]51790
  545. 51945 [159]2,8,2,"0:"[170]B$[170]",S,A":[139]NF[177]YN[167]NF[178]YN
  546. 51946 [139][194](708)[178]B[167]L$[178]"PEEK
  547. 51947 FORJ=1TONF:IFXP=4ANDB$="LD"THENA$=HD$(A%(J)):GOSUB550:F$=U$
  548. 51948 A$=L$+":"+F$+LEFT$(X$,17-LEN(F$))+LEFT$(N$,19):PRINT#2,A$
  549. 51949 A%(J)=.:NEXT:CLOSE2:YN=.:J=.:L$=MID$(STR$(L),2):RETURN
  550. 51950 A$="[[208]]ROGRAM OR [[211]]EQUENTIAL/[212]EXT > ":GOSUB2:VK$="[208][211]":GOSUB25
  551. 51957 ZZ$=I$:FT=-1*(I$="[211]"):IFZTHEN3
  552. 51960 FT$=MID$("[208][210][199][211][197][209]",FT*3+1,3):A$="[194]EGIN [212]RANSFER - [195][212][210][204]-[216] TO [193]BORT
  553. 51970 [141]9:[141]7050:[137]51835
  554. 52000 [141]7000:[139]L$[178]""[167]53080
  555. 52005 A$[178]"#CLOSEOF FILES: "[170]DR$(4,L):[141]9
  556. 52010 [141]22:[151]687,50:A$[178]"  PEEKLKS":[139]U4[178].[167]A$[178]"  PEEKYTES "
  557. 52030 A$[178]A$[170]" ASCILENAME          STR$ATE    STR$N(null)
  558. 52033 IFWD>77ANDLGTHENA$=A$+"          [196]ESCRIPTION
  559. 52035 A$[178]A$[170]R$:[141]9:FC[178]7
  560. 52040 [139]M3[178]1[176]Q[167]52160
  561. 52050 M3[178]M3[171]1:A$[178]HD$(M3)
  562. 52120 [141]550:U$[178]U$[170][200](X$,16[171][195](U$))
  563. 52125 [139]U4[178].[167]MJ[178][197]([202](T$,3))[172]W:T$[178][200](T$,2)[170][202]([196](MJ),2)
  564. 52126 [139]U4[178].[175][195](T$)[179]8[167]T$[178][200](T$,2)[170]"0"[170][202](T$,3):[137]52126
  565. 52128 A$[178]T$[170]" "[170]U$[170]FD$[170]" "[170]DL$:[139]LG[175]WD[177]77[167]A$[178]A$[170]" "[170]CM$
  566. 52130 [139]FW[167]FC[178]FC[170]1:[139]FC[178]FW[167][141]71:[139]I$[178]"(null)"[167]52160
  567. 52133 [141]2:[139]Q[176]Z[167]52160
  568. 52137 [139]LG[167]52152
  569. 52139 [139]M3[178]1[167]52160
  570. 52150 [137]52050
  571. 52152 [139]SC[178].[176]PW$[178]"NONAME"[167]52155
  572. 52153 A$[178]"(null)ASSWORD: "[170]PW$:[141]70:[139]I$[178]"(null)"[167]52160
  573. 52154 [141]2:[139]Q[176]Z[167]52160
  574. 52155 [139]WD[177]77[167]52139
  575. 52156 A$[178]CM$[170]R$:[141]70:[139]I$[178]"(null)"[167]52160
  576. 52157 [141]2:[139]Q[176]Z[167]52160
  577. 52158 [141]70:[139]I$[178]"(null)"[167]52160
  578. 52159 [137]52139
  579. 52160 [141]13:[139]TB$(U)[179][177]"0"[167]52166
  580. 52163 [160]10:[159]10,U,15,"I0:":[152]10,"M-R"[199](250)[199](2)[199](3):[161]#10,A$,I$,I$
  581. 52164 F[178]C[172][198](I$[170]Y$)[170][198](A$[170]Y$):[160]10:[139]YU[167][142]
  582. 52165 [137]52180
  583. 52166 F$[178]"AAA":[141]52200
  584. 52180 A$[178]"":[141]85:[137]3
  585. 52200 [160]10:[139]TB$(U)[178]"1"[167][159]10,U,.,DD$[170]"$":[160]10
  586. 52205 FF$[178]"$"[170]DD$[170]F$[170]L$:[159]10,U,.,FF$
  587. 52210 [161]#10,A$,A$,A$,A$,A$,A$
  588. 52220 [161]#10,A$:[139]A$[177]""[167]52220
  589. 52240 [161]#10,A$,A$,A$,B$:F[178][198](A$[170]Y$)[170][198](B$[170]Y$)[172]C:[160]10:[142]
  590. 52610 K[178]TI
  591. 52620 [161]A$:[139]A$[177]""[167]52650
  592. 52630 [141]11:[139](TI[171]K[177]WT)[167]3
  593. 52640 [161]#5,A$:[139]A$[178]""[167]52620
  594. 52650 A[178][198](A$):[139]A[177]N[167]A[178]A[171]N:A$[178][199](A)
  595. 52660 [139]A[178]65[167]SU$[178]W$:[142]
  596. 52670 [139]A[178]67[176]A[178]71[167][142]
  597. 52690 [139]A[178]66[175]L0[178].[167]52710
  598. 52700 [137]52620
  599. 52710 A$[178]"LENURRENT (null)IZE ="[170][196](BS):[141]9
  600. 52730 A$[178]"(null)EW (null)IZE (40-255)":O[178]3:[141]7
  601. 52740 [139]I$[178]C$[167]52760
  602. 52750 BS[178][181]([197](I$)):[139]BS[179]40[176]BS[177]B[167]BS[178]B
  603. 52760 A$[178]"PEEKLOCK (null)IZE ="[170][196](BS):SU$[178]"(null)":[137]9
  604. 53080 A$[178]"STR$IR  ASCILES  (null)AME":[139]WD[177]77[167]A$[178]A$[170][200](X$,17)[170]P$[170]" LEFT$OURS
  605. 53081 GOSUB9:A$="---------------------------------
  606. 53082 [139]WD[177]77[167]A$[178]A$[170]"--------------------------------
  607. 53083 GOSUB2:JM=99:FORX=.TODR:A$=STR$(X):IFX>9THENA$=MID$(STR$(X),2)
  608. 53085 A$=A$+"    "+LEFT$("000",3-LEN(DR$(4,X)))+DR$(4,X)+"   "+DR$(3,X)
  609. 53086 IFWD>77THENGOSUB10002:A$=A$+LEFT$(X$,33-LEN(A$))+JM$
  610. 53087 GOSUB2:IFQTHENX=DR+1
  611. 53088 NEXT:JM=.
  612. 53090 L$=VQ$:L=VAL(L$):U=VAL(DR$(1,L)):DD$=DR$(2,L):GOTO3
  613. 54480 GOSUB13:GOSUB55:OPEN2,U,2,DD$+F$+L$+",P,R":INPUT#1,A,C1$,I,I:IFATHEN54855
  614. 54500 GET#2,A$,B$,F$,F$:V=ASC(A$+Y$):S=ASC(B$+Y$):IFV<>2THEN54855
  615. 54530 GET#2,A$,B$:L1=ASC(A$+Y$):L5=ASC(B$+Y$)
  616. 54550 GET#2,A$,B$,F$:L3=ASC(A$+Y$):B1=ASC(B$+Y$):B2=ASC(F$+Y$)
  617. 54580 GET#2,A$,B$:FT$=A$:FL=ASC(B$+Y$):IFFL>22THEN54855
  618. 54610 F$="":FORX=1TOFL:GET#2,A$:F$=F$+A$:NEXT
  619. 54650 GET#2,A$,B$,JM$:R1=ASC(A$+Y$):D1=ASC(B$+Y$):D2=ASC(JM$+Y$)
  620. 54690 A$="[198]ILENAME: "+F$+", "+FT$:GOSUB9:IFQTHEN54855
  621. 54710 A$="[204]ENGTH (BYTES):"+STR$(L3*65536+L5*C+L1):GOSUB2:IFQTHEN54855
  622. 54720 A$="[195]OMPRESSED BLOCKS:"+STR$(B2*C+B1):GOSUB2:IFQTHEN54855
  623. 54730 A$="[196]ATE:"+STR$(INT(D2/2+1980))+" /
  624. 54750 A[178][181](D1[173]32[170](D2[175]1)[172]8):A$[178]A$[170][196](A)[170]"CLOSE/
  625. 54760 A$=A$+STR$(D1AND31):GOSUB2
  626. 54790 GOSUB34:POKE731,W-(14+FL):SYS49263
  627. 54800 IFB2*C+B1=1THEN54840
  628. 54810 FORX=1TOB2*C+B1-1
  629. 54815 IFSTTHEN54855
  630. 54820 POKE731,W:SYS49263
  631. 54830 NEXT
  632. 54840 IFST=.ANDZ=.THEN54500
  633. 54850 GOSUB13:A$="[196]ONE!":GOTO5
  634. 54855 GOSUB13:A$=R$+W$:GOTO5
  635.